home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / cross / GBDK-2.0.lha / GBDK / lib / get_wi_t.s < prev    next >
Text File  |  1998-10-01  |  339b  |  27 lines
  1.     .include    "global.s"
  2.  
  3.     .globl    .get_xy_wtt
  4.  
  5.     .area    _CODE
  6.  
  7. _get_win_tiles::
  8.     PUSH    BC
  9.  
  10.     LDA    HL,4(SP)    ; Skip return address and registers
  11.     LD    D,(HL)        ; D = x
  12.     INC    HL
  13.     LD    E,(HL)        ; E = y
  14.     LDA    HL,9(SP)
  15.     LD    B,(HL)        ; BC = tiles
  16.     DEC    HL
  17.     LD    C,(HL)
  18.     DEC    HL
  19.     LD    A,(HL-)        ; A = h
  20.     LD    H,(HL)        ; H = w
  21.     LD    L,A        ; L = h
  22.  
  23.     CALL    .get_xy_wtt
  24.  
  25.     POP    BC
  26.     RET
  27.